clear all
cd "C:\Users\28612\Desktop\Replication (Food or Vote The Effects of Confucian Values on Support for Democracy)"
use "Data/W5 (Rawdata- Pre-Imputation)"

keep q104 q99 q100 q132 q136 q134 q133 q86 q87 q88 q89 q58 q62 q59 q64 q65 q66 q67 q60 q149 q150 q151 q154 q155 q98 q1 q4 q22 q46 country Year IDnumber Level SE2 SE3_1 SE5 q9 q15 q33 q49 q90 q91 q92 q93 q94 q95 q96 q97 q101 q137 q138 q139 q140 q143 q168 q169 q170 q171 q172 q173 SE9 SE12 SE14

rename q104 Democratic_Suitability

recode q136 (1=4) (2=3) (3=2) (4=1), gen (Democratic_Preferability)

recode q134 (1=1) (2=2) (3=4) (4=5) (5=3), gen (Democratic_Priority)
rename q173 Democratic_Necessity

*****Construct variable Family_Values by PCA******
recode q58 (1=4) (2=3) (3=2) (4=1), gen (q58a)
recode q62 (1=4) (2=3) (3=2) (4=1), gen (q62a)
factortest q58a q62a
pca q58a q62a
factor q58a q62a, pcf
screeplot, yline(1)
predict f1
rename f1 Family_Values
gen Family_Values1=(q58a+q62a)/2

*****Construct variable Social_Values by PCA******
recode q59 (1=4) (2=3) (3=2) (4=1), gen (q59a)
recode q64 (1=4) (2=3) (3=2) (4=1), gen (q64a)
recode q65 (1=4) (2=3) (3=2) (4=1), gen (q65a)
recode q66 (1=4) (2=3) (3=2) (4=1), gen (q66a)
recode q67 (1=4) (2=3) (3=2) (4=1), gen (q67a)
recode q151 (1=4) (2=3) (3=2) (4=1), gen (q151a)
recode q155 (1=4) (2=3) (3=2) (4=1), gen (q155a)
factortest q59a q64a q65a q66a q67a q151a q155a
pca q59a q64a q65a q66a q67a q151a q155a
factor q59a q64a q65a q66a q67a q151a q155a, pcf
screeplot, yline(1)
predict f1
rename f1 Social_Values
gen Social_Values1=(q59a+q64a+q65a+q66a+q67a+q151a+q155a)/7



*****Construct variable Political_Values by PCA******
recode q60 (1=4) (2=3) (3=2) (4=1), gen (q60a)
recode q149 (1=4) (2=3) (3=2) (4=1), gen (q149a)
recode q150 (1=4) (2=3) (3=2) (4=1), gen (q150a)
recode q154 (1=4) (2=3) (3=2) (4=1), gen (q154a)
factortest q60a q149a q150a q154a
pca q60a q149a q150a q154a
factor q60a q149a q150a q154a, pcf
screeplot, yline(1)
predict f1
rename f1 Political_Values
gen Political_Values1=(q60a+q149a+q150a+q154a)/4


rename q1 Country_Economic_Evaluation
rename q4 Family_Economic_Evaluation
rename q22 Social_Capital
rename q46 Political_Interest
rename q9 National_Government_Trust
rename q15 Local_Government_Trust
rename q143 Political_Efficiency
rename q33 Election_Participation
rename q49 Internet_Use
rename SE2 gender
rename SE3_1 age
rename SE5 education
rename Level residence
rename SE9 employment
rename SE12 family_status
rename SE14 household_income

recode q98 (1 3=0) (2 4=1), gen (Understanding_of_Democracy)

*****Distinguish between different countries for robustness testing******
keep if country==1 | country==2 | country==3 | country==4 | country==7 | country==10 | country==11
gen area=1
replace area=2 if country==10 | country==11

gen Confucian_Values=(q58a+q62a+q59a+q64a+q65a+q66a+q67a+q151a+q155a+ q60a+q149a+q150a+q154a)/13
gen treatment =0
replace treatment =1 if Confucian_Values > 2.607095
save "Data/W5 (Finaldata Pre-Imputation)", replace